﻿Public Class IstatistikIptal
    Inherits Process

    Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
        'Select Case e.EventType
        '    Case EventType.Initialize
		'        Text ="İstatistik İptal Fişleri Girişi"
		'        InitialHelp = "Bölge seçimi yapın."
		'        AddField("@bolge", "nl")
		'        StartBody()
		'        AddList()
		'        List.AddColumns  "kod(h),isttur(Fiş Türü;l;100),bolge(Bölge;l;100%),istno(Fiş No;l;100)"
		'        DisplayForm()
		'    Case EventType.ValidateForm
		'        Help = "Ekle ve Sil butonlarını kullanarak listeye ekleme/çıkarma yapabilirsiniz."
		'        List.SQL = "select kod,dbo.param('isttur',isttur) as isttur,dbo.param('bolge',bolge) as bolge,istno from istiptal" & If(IsEmpty("bolge"), "", " where bolge = " & Input("bolge")) & " order by isttur,bolge,istno"
		'        List.Populate()
		'        Buttons.Show("Add.Delete.Restart")
		'        e.Result = True
		'    Case EventType.Other
		'        Select Case e.Name
		'            Case "Add"
		'                Dim Detay As New IstatistikIptalGiris()
		'                Detay.Run(Me)
		'                List.Populate()
		'                Focus("List")
		'            Case "Delete"
		'                If List.NoSelection Then Exit Sub
		'                If Not Confirm("Bu kaydı silmek istediğinizden emin misiniz?") Then Exit Sub
		'                ExecSQL("delete from istiptal where kod = :kod", List.SelectedRow("kod"))
		'                List.Populate()
		'                Focus("List")
		'        End Select
		'End Select
	End Sub

End Class

Public Class IstatistikIptalGiris
	Inherits ProcessDialog

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		'Select Case e.EventType
		'    Case EventType.Initialize
		'        Text ="İstatistik İptal Fiş Girişi"
		'        InitialHelp = "Fiş bilgilerini girin."
		'        AddField("isttur*", "nl")
		'        AddField("bolge*", "nl")
		'        AddField("fisno*", "nl")
		'        SetSize(400, 250)
		'    Case EventType.Restart
		'        Buttons.Show("Save")
		'    Case EventType.Save
		'        Parent.Save("istiptal", "grup,bolge,istno", Input("isttur"), Input("bolge"), Input("fisno"))
		'        Info("İptal fiş kaydı başarıyla gerçekleştirilmiştir.")
		'        Input("fisno") = ""
		'        Focus("fisno")
		'End Select
	End Sub

End Class

